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MODULE STRSCOMPARE_CASE_BLIND ( ! Compare Case-blind 
IDENT = '1-003" ! File: STRCOMCAS.B32 Edit: DG1003 
d= 


' 


oo 


BEGIN 


' 
MAPSSSESSESSS TITS T TTT TTT TTT Cece c cece cee icici i citi tii iti citi it tiiiiiiit 


'e 

!® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 
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2 00 '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
é 90 it SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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003 ; 
; 003 '++ 
O08 FACILITY: String support Library 

3 003 i ABSTRACT: This module contains a routine to perform case-blind 
H O08 comparisons of 2 input strings of any supported class and dtype. 
i Bee ; ENVIRONMENT: User mode, AST reentrant. 
4 0041 : AUTHOR: R. Reichert, CREATION DATE: 11-Aug-1982 
4 004 i MODIFIED BY: 
4 044 : 
4 Goes ! 1-001 = Original. RKR a bs 
4 046 ! 1-002 - Remove STRSCASE_BLIND_ COMPARE EQL. Improvements to code 
4 047 § in STRSCASE_BLIND COMPARE. RRR 24-Nov-1982. 
° 93 1-003 - Enhance to Support DEC Multinational Char. Set. DG 1-Nov-1983. 
5 050 ' <BLF /PAGE> 


-—————_—-- -—- — -— 


- 
oe 
™N 
ll] 


=32 V4.0-74 
STRCOMCAS.B 


j 


1-00 


| STRSCOMPARE._CAS 


“ 
— 
°o 
wn 2 
£ i= 
we ~ 
ce a 7) 
~ Cc 
uw a wo 
> —s c 
Comal @o 
— —) 
<= eo 7) 
J - o 
uw = 4 . 
< av tS] 
t c @ 
a 3 Ee ~ 
ac = 
oO . ® « < 
z °o wo °o - 
- o> vw 
u“ v <aa 7 
_ ~ ooZzZ 
of ~ ” & =z << 1 
< - -oe ~< ~ 
z w - vou Pn ae 
« a wt -* Ooo @ 
w o at nur @® NuWuwuwe 
to @ 4 a ao— -eeee ws 
ba = © Ee WU x < Pe 
w c ~ oe - FeFL FL PL FL~ 
=z - 2 © Ow 
o ~ ecw wa—awawtan © 
z = — = ooo0ca 
@ ~ vce WWW 
. ” - ovr O49 sZuww 
od ba = oun alae 
< Paani ead 
a -- me —ememe WWwwwwod 
w eee 1 8 
z >>> >> zZz 
uu aoooa-- 
o (ttt ew 
2222z2a<c 
u oe ee ee oe oe en i | 
w *. u see 6 oa 
al [- 4 od ~wwwwae ce 
wet <= -“n ~ S€eaecartst 
az *. a -O w FES ES Fo w 
oc - = va —- £rtrtIIrtaee =z 
Zw a o wo ~~ VOVOVESE So *. 
- 2 ee a <F boas Oo @aeancaacrs 2 ” ~ 
ox —_ nw t aze 1 AARAABRALY 2 a w 
Zw [4 om a aaow =z ==Szss - oO _ za 
id oa 2 P44 Le — VUUoVUYU ” — (72) o at 
“” ” w — a ana - ~~ ~~ Zw = _ ~ 2 
” oe — wi ” os oo WI «eo oS < 
w 4 z zq@ w 22 w we xz 2 < ” 
ce 4 _ oO — | -_ ey) or ae —wire at - w 
a | YL —w _ = | {es = J =) oO 
ad Qa _ >M “ lade vo a “” ve w < 
” < YY = ocx zac Qw 2 wa ” « 
w wie oO av w eee 2@ uw a o a o 
= ”" oo Cad a nn w 4g - 
ve w <= w ws ax bam wus > oO — — w ” 
_ =x <~ «= = ze od ca < —? vw 4 
_ Vv ze 2 «un a) bende 4 eve oO a w <= 
za _ -—- D> za z s5Da = « So 7) — 
” = + oo - « _ oom Vv w a YL 
za w oO wie § ws 
—em ome wn Seite * 4 —emome “ —ememe aca iJ —emems —ememe memes Qa —eomome —-. 


LLL LLL FE ELC EC EK 


Oooo 
SOOCCCCOCOSOSCOCCOOCOCCOCOCCOCOCOOC OO — RK RK RK RK RK RK KR RK RK EE ER PCO ER RP CK Ce eee 


(WIATOOP- DWP O-— CUMTNOF DAKO MUMTMNORDOOK UM TW o KUNI a 
WArAAAnASOoOoODO NR soap ade0an ed eococo SOoaOROe SOOO SOSOS 


Cn ee a ee 


68 


i dh dt ed hd ee oe ee eT Ee eT oT eee eT et eT eT eT ee ae er er ee eT ee er er er ee ee er er ee 2 ee er 2 er er 2 er 2 Yl 
a 


SIRECOMPARE CAS yB-sep-1964 01:51:40 yArct1 Blisg=82 v4.0-742, | Page 3 
; 109 1301 1 =! EXTERNAL ROUTINE : NONE 


1 
STRSCOMPARE _CAS 1b-5e 1984 01:31:4 AX-11 Bliss-32 V4.0-74 
1 5 1 meet 7 ? 740:0 CTARTL SRESSTRCUMCAS B92; 1 


GLOBAL ROUTINE STRSCASE_BLIND_COMPARE ( ! Case-blind compare with 
! blank fill 


G1, ! pointer to ist string descriptor 
G2 ! pointer to 2nd string descriptor 


+4 
FUNCTIONAL DESCRIPTION: 


This routine compares two upcased source strings of any 
supported data type and class, and returns a 


-1 if string! < string2 

0 if both are the gang with blank fill for shorter 
1 if string! > string2. 

CALLING SEQUENCE: 


MATCH.wl.v = STRSCASE_BLIND_COMPARE ( st . 
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FORMAL PARAMETERS: 


STRING1.rt.dx pointer to ist string descriptor 
STRING2.rt.dx pointer to 2nd string descriptor 
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i IMPLICIT INPUTS: 
' 
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NONE 
IMPLICIT OUTPUTS: 
NONE 
! ROUTINE VALUE: 


MATCH.wl.v - tring! < string2 


oth are the same with blank fill 
tring] > string2 
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SIDE EFFECTS: 
May signal STRS_ILLSTRCLA on bad string class 
BEGIN 
MAP 
STRING1: REF BLOCK Byte 
STRING2: REF BLOCK C ,BYTE) ; 
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Length of STRI 
Address of STR 
Length of STRI 
Address of STR 
Status to be returned 

: ! shorter of STRINGI_LEN and STRING2_LEN 
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+ 
Extract length and addresses of strings, and find length of shorter 


SSTRSGET_LEN_ADDR ( STRING], STRINGI_LEN, STRINGI_ADDR ) ; 
SSTRSGET_LEN_ADDR ( STRING2, STRING2_LEN, STRING2_ADDR ) ; 


SHORTER = MINU (.STRINGI_LEN, .STRING2_LEN) ; 


+ 
: Compare two strings character by character, upcasing each character 
while inspecting it. 


pan I FROM 1 TO .SHORTER 


G1_ADDR) ; 
NG2-ADDR) ; 


HEN ( 
ELSE IF .CHAR1 GTRU .CHAR2 
THEN RETURN (1); 
END; ! loop 
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! If we fall out of loop, strings matched all the way across to the 
! Length of the shorter. If their lengths are equal, they're equal. 
IF_ .STRINGI_LEN EQLU .STRING2_LEN 
THEN RETURN 0 ; ! Length and contents match 
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! If their lengths are not equal, and what remains of the longer is 
blanks, then they are equal, else shorter is Less. 
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IF .STRINGI_LEN LSSU .STRING2_LEN 
THEN 


BEGIN ! STRING! is shorter 

IF CHSEQL ( 0 . STRING? ADDR 

~STRING2_LER = SHORTER, .STRING2_ADDR, 
STRSK_FICL CHAR ) 

THEN RETURN ' STRING! (with blank fill) = STRING2 
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UMPwn— @ 


ELSE RETURN -1 ; ' STRING1 < STRING 

evsee™” ' STRING] is shorter 
0 BEGIN  ! STRING2 is shorter 
08 IF CHSEQL ( 0, .STRING1_ADDR 
09 ~STRING]_LER = .SHORTER, .STRING1_ADDR, 
10 STRSK_FICL_CHAR ) 
11 THEN RETURN !' STRING! = ste ines (with blank fill) 
1 ELSE RETURN : ' STRING] > STRING 
i END ; ! STRING2 is shorter 
15 END ; ! STRSCASE_BLIND_COMPARE 
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FD BF 1 9 CMB {STRING2 ADDR), #253 : : 

FOF i 9 CHB oe ADDR), #240 : 

50 F 9A 90098 128 ROvzBL CGTRING2_ADDR)+, RO : ; 

3 $f doose sre ta8' 

3 1 gh nb 13$:  MOVZBL (STRING2_ADDR)+, RO ; ; 

5 8 Bt Ong CMPB CuARi ¢ CHAR2 ; 1380 ; 

ee a set : : 

9D 56 3 FS QOOAD 158: ROBE EO SHORTER, I, 6$ : 1393 3 

54 8} 90081 CMPW = STRINGI_LEN, STRING2_LEN ; 1389 ; 

13 1e 00086 Bcedu 178 1397 

i$ ab i fie OU saunas gy. fence 

50 20 61 00 55 008 CMPCS #0, (STRING2_ADDR), #32, RO, (STRING2_ADDR) ; 1400 ; 

16 13 000C4 BEQL 198 : ; 

50 O1 CE 000C6 168: MNEGL , RO : 1404 : 

50 57 3¢ QO0cA 178: MOVZWL_ STRINGI_LEN, RO ; 1409 ; 

50 20 62 09 55 90000 cMPCS #0, RUSTRINGI _ADDR), #32, RO, (STRINGI_ADDR) ; 1408 : 

04 13 00008 BEQL 198 : : 

50 01 pO 00008 188: MOVL «#1, RO : 1412 : 

04 90008 RET : 1407 : 

50 D4 O00DC 19$:  CLRL RO : 1415 : 

04 OO0DE RET : : 
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PSECT SUMMARY 
Name Bytes Attributes 
_STRSCODE 223 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
pe agend Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
~$255$DUA28: CSYSLIBISTARLET.L32;1 9776 4 0 581 00:00.7 
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